10 a$="2100A106810E001114A0CDD7BC2170A022FE9FC9C5D5E5F53A85B23F09F3A86B232F19F3E082101C01100C0014F00EDB001B10709E5D11B3D20F12AFE9F2322FE9F3E003285B23E4F3286B27ECD5ABB87CC65A03AF09F3285B23AF19F3286B2F1F1D1C1C92170A022FE9FC9"
20 b$="  2LIGNE de l'HHHHebdo, ca TOURNE... Bonne fete a toute l'equipe de l'HHHebdo et a ses lecteurs! ":FOR i=1 TO LEN(a$) STEP 2:POKE &A000+i/2,VAL("&"+MID$(a$,I,2)):NEXT:FOR i=1 TO LEN(b$):POKE &A06F+i,ASC(MID$(b$,i,1)):NEXT:CLS:MODE 2:CALL &A000